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BASSCONCAT Je~ge= 138% 90:09:06 AX-11 Bliss-32 v4.0 
14-Sep-1984 2:54:47 BASRTL.SRC BASCONCAT. " 2:1 
MODULE BASSCONCAT ( ' Concatenate several strings 
[DEN T = *1=001" ' File: BASC went ?egs . 


FANS 


BEGIN 


VeRO ReRRRAEARAERAAAAAREARAHHEEHEEHAHHHAEREKETHEKKEKERHEeKReeAeeHeReeeenes 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'e THIS fore IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copies 
!t ONLY yy ee NCE A THE TERMS OF SUCH ints or oe Oenek 


S33 


—OoO 


WR O OONOAUEWIN — 9 ODNAUES WN “OO ONAULS WN —O0@ 


® 
® 
® 
® 
tt 
* 
® 
* 
i ES TH PRO * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 

” 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. : 

* 
is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. “ 

* 

am 

* 


VQ ROAR AAA EEAAEEEEAAEEEEREETEERERETEA AEE AEAAAAAEAAAERAREREHARREEHERES 
t 

ee 

} FACILITY: VAX=-11 BASIC 

ABSTRACT: 

¢ This module takes up te 254 input strings and gy 

: them into a result stri ng; The x ren can be o class 

; and data type, provided that the length field of the " eescr lates 
indicates the length of the string in bytes. 

i ENVIRONMENT: VAX-11 User mode 

t 

! 

! 

! 

! 

! 


i AUTHOR: John Sauter, CREATION DATE: 18-OCT-1979 


SOOCSOSCSCSOSCOOSOOSOSSOSSOSOoOOCOOSOOOCOOOSoOOoOSoSoOO SSSsssssss 
BEF FAA AWA NAAI AIR PNIPONIPNINIDD 2 2 OO Ow 


44 ! MODIFIED BY: 
0045 : icf 
0046 ! 1-001 = Original. 
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l 4g 
BASRTL. RCIBASCONCAT.B 2:1 
i 
4 
5 0 
$ 0 
0 
8 
9 


SWITCHES: 
SWITCHES ADDRESSING MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


! 

LINKAGES: 
; NONE 
; 

i 


PPPS 


TABLE OF CONTENTS: 


WR SO OONOUNE WO 


FRESE 


064 FORWARD ROUTINE 
065 BASSCONCAT : NOVALUE; ! Concatenate two or more strings 
06 : 
0¢ INCLUDE FILES: 
7 REQUIRE "RTLIN:RTLPSECT’; ! Declare PSECTS code 
LIBRARY ‘RTLSTARLE’; ! System symbols 
! 
i MACROS: 


NONE 

; EQUATED SYMBOLS: 

} NONE 

PSECT DECLARATIONS 
DECLARE _PSECTS (BAS); 
; 

! 

: 
; 
; 
i 
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8 

84 

85 

86 

87 

85 1 

89 1 ! OWN STORAGE: 

90 1 

91 1 NONE 

a8 1 

9 1 EXTERNAL REFERENCES: 

94 1 

95 1 

96 1 EXTERNAL ROUTINE 

97 1 STRSCONCAT, ! Concatenate siciog 
+ : BASSS$STOP : NOVALUE; ! Signal fatal BASIC error 
100 1 '¢ ; 

Hy : The following are the error messages used in this module: 

198 1 

104 1 EXTERNAL LITERAL 

+44 : BASSK_STRIOOLON : UNSIGNED (8); ! String too long 


, 


1 SCONCAT 


6. 
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1 p-1984 4:47 BASRTL.SRC JBASCONCAT .852;1 (3) 


GLOBAL ROUTINE BASSCONCAT ( ! Concatenate strings 
i Peearias ! pointer to destination descriptor 


lee 
FUNCTIONAL DESCRIPTION 


TYPE and 
value to the 


COOCCCOSCCOO 


This routine takes up to 254 source ete ings of any D 
CLASS, concatenates them, and assigns tha 
destination string. 


FORMAL PARAMETERS: 
pest DESC. wt.dx Pointer to destination descriptor 


INPOTJ .rt.dx Pointer to input string. There can 
be up to 254 of these. 


SSLESFENLS 


AAPRIGEPIMINYIAIMINININININ NINN INN INIA a a ee 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 


MOMOPOROPOPORoTNPononorororornsfroronnrn 


a a a a oe 


OOOSCOCSCOCOOCOoCoOoCO 


IW WIR PonononoTrononony 2 2 


= 
APA ODONOU EU "OODNOME Oboe 


. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
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' 
. 
! 
. 
] 
* 
! 
. 
' 
. 
' 
. 
' 
. 
' 

. 
] 
Py 
i] 

. 
] 
. 

' 
. 
] 
. 
' 
. 


'¢ 
: Call the string concatenate routine, giving it our parameters. 


CONCAT_STATUS = CALLG (.AP, STRSCONCAT); 
IF ( NOT .CONCAT_STATUS) 
BEGIN 
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2 

HH 5 SIDE EFFECTS: 
39 Signals the same as STRSCONCAT, and also sionals String too long 
re ; if the result descriptor is dynamic and STRSCONCAT had to truncate. 
4 ee 
23 3 
44 ; BEGIN 
te MAP 
rt} 3 DEST_DESC : REF BLOCK (8, BYTE]; 
4 re BUILTIN 
31 4 CALLG; 
3g 4 LOCAL 

54 4 CONCAT_STATUS; 

55 4 

56 4 

57 4 

8 5 

59 5 

0 5 

1 5 

4 5 

5 
4 5 
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IF (.DEST_DESC COSCSB_CLASS] EQL DSCSK_CLASS_D) THEN BASS$S$STOP (BASS$K_STRTOOLON); 


193 0 38 
169 § END; 
168 60 
169 61 END; ' End of 
- TITLE 
IDENT 
~EXTR 
~EXTRN 
-PSECT 
0000 00000 ENTRY 
000000006 99 of FA 00002 CALLG 
1 0 €E8 00009 BLBS 
50 06 AC 00 0000C MOVL 
02 03 Ad 91 00010 CMPB 
0B 12 00014 BNEQ 
7E 00G 8F 9A 00016 MOVZBL 
00000000G 00 01 FB OQOOIA CALLS 
04 00021 1$: RET 
Routine Size: 534 bytes, Routine Base: _BASSCODE + 0000 
170 bebe 1 
171 0265 1 END ‘End of 
ive 0264 1 
17 0265 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_BASSCODE 34 NOVEC,NOWRT, RD, EXE, SHR, LCL, 
Library Statistics 
ae See tee Symbols eee nee ee Page 
File Total Loaded Percent Mapp 
~$255$DUA28: CSYSLIBISTARLET.L32;1 9776 2 0 581 


9:04 rest Bliss-32 lh ahs 
4:47 BASRTL.SRC JBASCONCAT.B52;1 


BASSCONCAT 
BASSCONCAT 
\1=001\ 
STRSCONCAT, BASSS$STOP 
BAS$K_STRTOOLON 
_BASSCODE.NOWRT, SHR, 
BASSCONCAT, Save nothing 


(AP), STRSCONCAT 
CONCAT_STATUS, 1$ 


EST_DESC, RO 

303, 35 
#BAS$K_STRTOOLON, -(SP) 
#1, BASSSSTOP 


PIC,2 


module BASSCONCAT 


REL, CON, PIC,ALIGN(2) 
s Processing 
ed Time 

00:01.0 
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9 
BASSCONCAT 1S-sep 9:0 AX=11 Bliss-32 v4.0-74 p 
hess 1o=308-13be 99: 92:9 BASRTL SREIBASCONCAT. B92: 1 eh 
3 COMMAND QUALIFIERS 
r BLISS/CHECK= (FIELD, INITIAL ,OPTIMIZE) /NOTRACE/L1S=L1S8:BASCONCAT /0BJ=0BJ$ :BASCONCAT MSRCS:BASCONCAT/UPDATE=(ENHS :BASCONCAT 
; Size: 34 code + 0 data bytes 
: Run Time 2 


3; Elepsed Time: 00: 8.4 
3 Lines/CPU Min: 
; penenner res 13835 

3 Y Used: 37 pages 

3 oe ation Complete 


5 
(3) 


MENT CORPORATION 
SPRL A et 9 Na 
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